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DATASTREAM 




Request Packet from VT Server to host system 
00500000000000000054376200033111000001111000000010000Y 

Response Packet from host system to VT Server 

005800000000000000543762033 1 1 1 000001 1 1 1 000+000075000+0000725 
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REQUEST PACKET 



APPLICATION PROGRAMMING INTERFACE 



FIELD DESCRIPTION 


FORMAT 


CONTENT 


TRANSACTION CODE 


3N 


'033' 


CREDIT UNION ACCESS 
CODE 


3N 


CODE ASSOCIATED WITH EACH CREDIT 
UNION ASSIGNED BY HOST 


MEMBER NUMBER TO 
WITHDRAW FUNDS FROM 


9N 


(ENTERED BY CALLER) 


ACCOUNT SUFFIX TO 
WITHDRAW FUNDS FROM 


3N 


(ENTERED BY CALLER) 


TRANSFER AMOUNT 


9N 


(TWO DECIMAL POSITIONED ASSUMED) 


POST INDICATOR 


1A 


N - PRELIMINARY EDIT 
DO NOT UPDATE FILES 


Y - MEMBER HAS CONFIRMED 
THEY WANT TO POST 
TRANSACTION UPDATE FILES 



RESPONSE PACKET 



FIELD DESCRIPTION 


FORMAT 


CONTENT 


TRANSACTION CODE 


3N 


'033' 


CREDIT UNION ACCESS CODE 


3N 




MEMBER NUMBER 


9N 




HOST RESPONSE CODE 


3N 


000 - POSITIVE RESPONSE, 
CONTINUE SCRIPT 


210-214 - READ ERROR. 
REPEAT MENU 


220-221 - READ ERROR, 
REPEAT MENU 


SIGN FIELD 


1A 


+ OR -, NEGATIVE OR 

POSITIVE BALANCE 1 


CURRENT BALANCE OF 
WITHDRAWAL FROM ACCOUNT 
(BEFORE TRANSFER) 


9N 


N - PRELIMINARY EDIT 
DO NOT UPDATE FILES 


SIGN FIELD 


1A 


+ OR -, NEGATIVE OR 
POSITIVE BALANCE 


AVAILABLE BALANCE OF 
WITHDRAWAL FROM ACCOUNT 
(BEFORE TRANSFER) 


9N 
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MAPPING DOCUMENT 

REQUEST PACKET 



API FIELD DESCRIPTION 


VT SERVER FIELD DEFINITIONS 


TRANSACTION CODE 


HARD CODE - SET TO '033' 


CREDIT UNION ACCESS CODE 


CODE RETRIEVED FROM DATABASE CONFIGURATION 
FOR EACH PARTICULAR CREDIT UNION 


MEMBER NUMBER TO 
WITHDRAW FUNDS FROM 


FROM INTERNAL FIELD TRANSACACCNTFROM BEFORE 
FIELD SEPARATOR 


ACCOUNT SUFFIX TO 
WITHDRAW FUNDS FROM 


FROM INTERNAL FIELD TRANSACACCNTFROM AFTER 
FIELD SEPARATOR 


TRANSFER AMOUNT 


FROM INTERNAL FIELD TRANSACAMOUNT. INTERNAL 
FIELD INCLUDES DECIMAL POINT. EXTERNAL FIELD 
DOES NOT. REMOVE DECIMAL POINT BEFORE 
SENDING. MAXIMUM AMOUNT IS 9,999,999.99 


POST INDICATOR 


SET BASED ON TRANSACPOSTMODE. IF 0, SET TO 
N. IF 1, SET TOY. 


RESPONSE PACKET 


FIELD DESCRIPTION 


CONSTANT 


TRANSACTION CODE 


FIELD IS ECHOED, NOT USED IN RESPONSE 


CREDIT UNION ACCESS CODE 


FIELD IS ECHOED, NOT USED IN RESPONSE 


MEMBER NUMBER 


FIELD IS ECHOED, NOT USED IN RESPONSE 


HOST RESPONSE CODE 


EXTERNAL SYSTEM'S RESPONSE CODE. MAP TO THE VT 
SERVER RESPONSE CODE BASED ON THE 
CONFIGURATION TABLES. 


SIGN FIELD 


POSITIVE/NEGATIVE SIGN INDICATOR FOR FIELD THAT 
FOLLOWS. USE TO MAP APPROPRIATELY. 


CURRENT BALANCE OF 
WITHDRAWAL FROM ACCOUNT 
(BEFORE TRANSFER) 


MAP TO THE LEDGER BALANCE FIELD OF THE INTERNAL 
MESSAGE. QBT BALANCE INDICATOR FOR LEDGER IS 1. 


SIGN FIELD 


POSITIVE/NEGATIVE SIGN INDICATOR FOR FIELD THAT 
FOLLOWS. USE TO MAP APPROPRIATELY. 


AVAILABLE BALANCE OF 
WITHDRAWAL FROM ACCOUNT 
(BEFORE TRANSFER) 


MAP TO THE LEDGER BALANCE FIELD OF THE INTERNAL 
MESSAGE. QBT BALANCE INDICATOR FOR LEDGER IS 2. 



PRIOR ART 
FIG. 3 



Replacement Sheet 



S10 



VIEW TECHNICAL API 
SPECIFICATION FROM HOST 



CREATE MAPPING 
DOCUMENT FOR 
PROGRAMMER(S) 
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GENERATE / DEBUG 
SOURCE CODE 



S14 



S16 



COMPILE SOURCE CODE 



YES 



YES 
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VIEW TECHNICAL 
REPRESENTATION FROM 
HOST 
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DEVELOP / DEBUG 
SOURCE DOCUMENT 
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GENERATE SOURCE CODE 
FROM SOURCE DOCUMENT 



YES 
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COMPILE SOURCE CODE 
INTO OBJECT CODE 
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DISTRIBUTE AND DEPLOY 
APPLICATION 
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1 . if ( !FAILED( spElement->getElementsByTagName( 

2. L"Log Message In", &spNodes ) ) && spNodes ) 

3. { 

4. long ILength = 0; 

5. if ( FAILED( spNodes->get_length(&ILength))) 

6. { 

7. return ; 

8. } 

9. CString sText; 

10. for ( long i = 0 ; i < ILength ) 

11. { 

1 2. spNode.Release(); 

13. if ( IFAILED ( spNodes->get_i tem( i , SspNode ) ) ) 

14. { 

1 5. CheckOutputl_ine( 0, spNode ); 

1 6. GetAttribute( spNode , L M id n , sText ); 

17. if(m_bDoVB) 

18. { 

19. sText = _T( M Sub LogMessage!n_")+ sText + _T("( vtObj as VTMsgObj )"); 

20. OutputLine( 0 , sText ); 

21 . OutputLine( 0, _TC\r\n") ); 

22. OutputLine( 1 , _T("Temp variables used by routine\r\n")); 

23. OutputLine( 1 , _T(**Dim sTmp As StringvAn") ); 

24. OutputLine( 1 , _T("Dim sTmp4 As StringWf) ); 

25. OutputLine( 1 , _T("Dim sTmp5 As StringWf) ); 

26. OutputLine( 1 , _T("Dim sTmp3 As StringWf) ); 

27. OutputLine( 1, _T(" Dim sTmp2 As String\r\n") ); 

28. OutputLine( 1 , _T("Dim sCmp As String\r\n w ) ); 

29. Outputl_ine( 1 , _Tf Dim iOffeet As integer\r\n") ); 

30. Outputl_ine( 1 , _T("\r\n")); 

31 . OutputLine( 1 , _T("On Error Goto ErrOutVAn") ); 

32. OutputLine( 1 , _TC\r\n")); 

33. } else 

34. { 

35. AddCFunction( "LogMessageln_ w + sTex^; 

36. sText = _T("void MsgHand ler:: Log Message ln_ w ) + sText; 

37. sText += _Tf( IDualVTMsgObj * vtObj )\iAn{Wi\ttry {^n w ); 

38. OutputLine( 0 , sText ); 

39. OutputLine( 0, _T( ,, V^n' , ) ); 

40. OutputLine( 1, _T(7/Temp variables used byoutine\r\n n )); 

41 . OutputLine( 1 , _T("CComBSTR sTmp;\An") ); 

42. OutputLine( 1 , _T("CComBSTR sTmp2;\r\n w ) ); 

43. OutputLine( 1 , _T("CComBSTR sTmp3;\r\n w ) ); 

44. OutputLine( 1 , _T("CComBSTR sTmp5;\n M ) ); 

45. OutputLine( 1 , _T("CComBSTR sTmp4;\n M ) ); 

46. OutputLine( 1 , _T("CComBSTR sCmp;\lAn ,, ) ); 

47. OutputLine( 1 , _T("int iOffset = 0, iLastPos = 0;\r\n M ) ); 

48. OutputLine( 1 , _T("\r\n")); 

49. OutputLine( 1 , _T(7/End of temp variables\r\n")); 

50. OutputLine( 1 , _TC\rVi w )); 

51. } 

52. m_bProcessingGetResponseCode += 1 ; 

53. ProcessMessageln( 1, spNode ); 

54 m_bProcessingGetResrjonseCode -= 1 ; 

55. if ( m_bDoVB ) 

56. { 

57. OutputLine(0, _TfErrOut:\r\n")); 

58. OutputLine(1 , _TfvtObj.EndSetErr<p Err.Number, Err.Description\r\n")); 

59. } 
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Or 



1. void CXMLEditDoc::ProcessMessageln( int iTablndex, CComPtr<IXMLDOMNode>& 
spParentNode, BOOL blnBuildReld, BOOL *blfWasProccessed ) 



2-{ 

3. CComPtr<IXMLDOMNode> spChild; 

4. if ( FAILED( spParentNode->get_firstChild( &spChild)) || IspChild ) 
5- { 

6. retu rn; 

7. } 

8. CComPtr<IXMLDOMNodeList> spList = NULL; 

9. if ( !FAILED( spParentNode->get_childNodes( &spList ) ) && spList ) 

10. { 

1 1 . CComBSTR sNodeName; 

1 2. CComBSTR sText; 

1 3. CComPtr<lXMLDOMNode> spNode; 

14. long ILength = 0; 

15. spList->getJengt h( &ILength ); 

16. for ( long i = 0 ; i < ILength ; i++ ) 

17. { 

1 8. spNode.Release(); 

19. sTextEmptyO; 

20. sNodeName.EmptyO; 

21 . if ( ! FAILED ( spList->get_item( i , &spNode ) ) ) 

22. { 

23. spNode->get_nodeName( &sNodeName ); 

24. Che ckOutputLine( iTablndex, spNode ); 

25. void *ptr = NULL; 

26. CString strNodeName = sNodeName; 

27. strNodeName.MakeUpper(); 

28. // now the ugly look up table 

29. glb_MapOfXMLStringsTolds.Lookup( strNodeName, ptr ); 

30. int id = (int) ptr; 

31. switch (id) 

32. { 
* 

* 

56 case IDTAG_BitmapDateln: 

57. { 

58. CString sBitPos; 

59. CString sLen; 

60. CString sTranField; 
* 

{ 

74. OutputLine( iTablndex. _T("lf 



vtObi.lsBitmapPositionSet{ ") , T("if (lsBitmapPositionSet( vtObj, ")); 

OutputLine( 0, sBitPos ); 

OutputLine( 0, _T(") Then\r\n") . _T("» {\r\n") ); 

iTablndex += 1; 

// first lets get the data 

CheckForPackedAttribute( iTablndex, spNode ); 
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